home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Xenosoft 2
/
Xenosoft 2 (Game collection)(1994).iso
/
bioforge
/
script
/
ai_mech2.scp
< prev
next >
Wrap
Text File
|
1994-11-20
|
3KB
|
196 lines
{ CMECHZA
^ï╝ = 0
}
{ CMECHZB
^ï╝ = 0
}
{ CMECH1A
^ï╝ = 1
}
{ CMECH1B
^ï╝ = 1
}
{ INELC
^ï╜ = $Ç╝
}
{ OUTELC
^ï╜ = $Ç╗
}
// READ_MECHO2 INITIALIZES MECHO2'S A.I.
// IT SHOULD BE CALLED ONCE FROM THE ELC_LOAD CODE.
{ READY_MECHO2
I ( ^ï╛ = $Ç╗ ) THEN
é
I @Ç¢ ( MECHO2 ) = $Ç╗ THEN
{
Q ("&&& CAN'T FIND MECHO2 &&&");
é
}
è ON
┬
A ON
Y ELC1 ELC2 HLC1 HLC2 HLC3 HLC4 HLC5
ö MECHO2
G POSMECH2
£ CMECH1A
Z CURFIG ON
r CURFIG ON
M STAND CONTINUE
}
{ MECHO2_AI
:TOP
â
I ( ^ï╝ = 0 ) THEN
J #Çê
I ( ^ï╜ ) AND ( ^äƒ = $é╗ ) THEN
J #Çê
^ïÜ = @üì `üÜ $üâ "Halt, prisoner!"
^ïÖ = @Çÿ ( `üÜ )
┴
M FIRE_GUN
┴
I ( ^ï╜ = $Ç╗ ) THEN // RAPID FIRE
{
M FIRE_GUN
M FIRE_GUN
J #Çê
}
E
{
W 55
J #Çê
}
}
{ MECHO2_STIMULUS( _DAMAGE )
:GOT_HIT
I ( @Çó ( ^ïÜ ) == $Ç╝ ) THEN
{
( ^ïÖ )
}
é
:PLAYER_ENERGY_DAMAGE
// IF( @ISPROCESSVALID( _SUBTITLE_HAND ) == _TRUE ) THEN
// {
// STOPSOUND( _ENEMY_SPEECH )
// }
// AI OFF
// _SUBTITLE_HAND = @SUBTITLE _MECHO_VOX_HELLO2 _STCLEX "Do not move or you will be shot."
// _ENEMY_SPEECH = @GETSOUNDHANDLE( _MECHO_VOX_HELLO2 )
// @CALL PAUSE_FOR_SUBTITLE
// AI ON
é
:KILLED_PLAYER
I ( ^ï╛ = $Ç╗ ) THEN
é
A OFF
┴
W 1 SECONDS
//@@@
@Ç║ `ü£ $üâ "Unit 11 to Security..."
@Ç║ `ê╖ $üâ "Prisoner disabled.~Medical assistance required."
}
{ MECHO2_DEATH
@Çì LEXTAUNTSMECHO2
@Ç¢ (MECHO2)
^ï╛ = $Ç╗
@Çå ( `ǽ )
Ü ( 20,20,20, 1 )
ú ( BOOM, BLUEC, CURFIG )
K CURFIG
l CURFIG
}
{ LEXTAUNTSMECHO2
@Ç¢ (PLAYER)
A OFF
è OFF
G ECENTER 20 WALK
£ FMRN5 GRADUAL
M TAUNT3 CONTINUE
@Çì GROWL 5
//@@@
@Ç║ `çÖ "Eat light you stupid machine!"
M STAND CONTINUE
â
A ON
}
{ LASER_HIT_MECHO2
P ~ÇÇ
@Çå ( `Çí )
ú ( BOOM, PING, CURITEM )
M LASER_RECOIL
I .ÇéÇÇ > 0 THEN
{
D ENERGY 30
}
}
{ MECHO2_FIRE
// THIS FLAG IS USED TO TRIIGER A JOURNAL ENTRY
^ï┐ = $Ç╝
// MECHO WILL FIRE A LASER FROM HIS LIMB NAMED 'GUN'
Ü ( 0,0,8, 1 )
@Ç╣ BOLTBLU GUN 10 225 (0,0,0)
}
{ KILL_MECHO2 // CALLED AT END OF OPERATING ROOM SCENE
I ( ^ï╛ = $Ç╗ ) THEN
é
I @Ç¢ ( MECHO2 ) = $Ç╗ THEN
{
Q ("&&& CAN'T FIND MECHO2 &&&");
é
}
K
}
//$ 26 - version number